package body Udvar_Pkg is
   procedure Felvetel(u: in out Baromfi_Udvar; A: in Allat) is
   begin
      U.Allatok(U.Aktualis):=A;
      u.aktualis:=u.aktualis+1;   
   end Felvetel;
      
   function Darabszam(U: Baromfi_Udvar; A: Haziallatok) return Natural is
      d : Natural:=0;
   begin
      for I in 1..u.aktualis-1 loop
         if U.Allatok(I).Fajta=A then
            D:=D+1;
         end if;
      end loop;
      return d;
   end Darabszam;
            
   function Allatfajtak(U: Baromfi_Udvar; A: Haziallatok) return Tomb is
      result: Tomb(1..U.Aktualis);
      index: Positive:=1;
   begin
      for I in 1..U.Aktualis-1 loop
         if U.Allatok(I).Fajta=A then 
            Result(Index):=U.Allatok(I);
            Index:=Index+1;
         end if;
      end loop;    
      return result(1..index-1);
   end Allatfajtak;
   
   procedure Eladas(U: in out Baromfi_Udvar; A: in Haziallatok) is
      udvar: Baromfi_Udvar(u.meret);
   begin
      for I in 1..U.Aktualis-1 loop
         if U.Allatok(I).Fajta/=A then
            Felvetel(Udvar, U.Allatok(I));
         end if;
      end loop;
      u:=udvar;
   end Eladas;

   procedure Levagas(U: in out Baromfi_Udvar; A: in Allat) is
      I: Positive:=1;
      l : Boolean:=false;
   begin
      while (I<U.Aktualis and L=false) loop
         L:=A=U.Allatok(I);
         if L=True then
            begei
         I:=I+1;
      end loop;
   end Levagas;

   function Nyereseg(U: Baromfi_Udvar) return Float is
   begin
      return 0.0;
   end Nyereseg;
       
   function Ertek_Novekedes(u: Baromfi_Udvar; A: in Haziallatok) return Float is
   begin
      return 0.0;
   end Ertek_Novekedes;
 
end Udvar_Pkg;
